home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 32 / Mac Magazin and MacEasy Magazine CD - Issue 32.iso / Grafik & Text / OzTeX3.0 / Metafont / Inputs / ec / tcstdedt.tex < prev    next >
Text File  |  1997-03-16  |  13KB  |  346 lines
  1. % tcstdedt.mf
  2. %
  3. % (c) Copyright 1995, 1996, 1997 J"org Knappen
  4. % (c) Copyright 1990, 1992 Norbert Schwarz
  5. %
  6. % This file is part of ecfonts version 1.0
  7. %
  8. % Please read the files 00readme.txt, 00inst.txt, 00error.txt, and
  9. % copyrite.txt for further information
  10. %
  11. % You find some documentation in dcdoc.tex (needs LaTeX2e)
  12. %
  13. % Generating MF-files for TC fonts           EC Version 1.0 / 1-JAN-1997
  14. %
  15. %  Running TeX with this file as an input results in a lot of
  16. %  Metafont font driver files (tcrm5.mf, tcrm6.mf, ..). The files
  17. %  which should be generated are marked in the following macro
  18. %  \FontsToBeGenerated. For each font there has to be an entry
  19. %  with the pt sizes the font should be generate with. Additionally
  20. %  in the heading \tablevalues all used pt sizes have to be mentioned,
  21. %  just to get an fine printout.
  22. %
  23. %  Furthermore there is a batch file which can be customized for the
  24. %  Metafont batch run.
  25. %
  26. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  27. %
  28. %  please change only here:
  29. %
  30. \long\def\FontsToBeGenerated{
  31.  
  32.      \tablevalues     ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  33.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  34.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  35.                           35.83[3583])
  36.  
  37.      \makefont tcrm   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  38.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  39.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986] 
  40.                           35.83[3583])
  41.      \makefont tcsl   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  42.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  43.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986] 
  44.                           35.83[3583])
  45.      \makefont tcbx   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  46.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  47.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986] 
  48.                           35.83[3583])
  49.      \makefont tcbl   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  50.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  51.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986] 
  52.                           35.83[3583])
  53. %     \makefont tcfb   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  54. %                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  55. %                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986] 
  56. %                          35.83[3583])
  57.      \makefont tcrb   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  58.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  59.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986] 
  60.                           35.83[3583])
  61. %     \makefont tcdh   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  62. %                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  63. %                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  64. %                          35.83[3583])
  65.      \makefont tctt   (% 5[0500] 6[0600] 7[0700] 
  66.                           8[0800] 9[0900] 
  67.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  68.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  69.                           35.83[3583])
  70.      \makefont tcvt   (% 5[0500] 6[0600] 7[0700] 
  71.                           8[0800] 9[0900] 
  72.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  73.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  74.                           35.83[3583])
  75.      \makefont tcvi   (% 5[0500] 6[0600] 7[0700] 
  76.                           8[0800] 9[0900] 
  77.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  78.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  79.                           35.83[3583])
  80.      \makefont tcst   (% 5[0500] 6[0600] 7[0700]
  81.                           8[0800] 9[0900] 
  82.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  83.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  84.                            35.83[3583])
  85.      \makefont tcit   (% 5[0500] 6[0600] 7[0700]
  86.                           8[0800] 9[0900] 
  87.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  88.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  89.                           35.83[3583])
  90.      \makefont tcss   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  91.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  92.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  93.                           35.83[3583])
  94.      \makefont tcsi   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  95.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  96.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  97.                           35.83[3583])
  98.      \makefont tcsx   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  99.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  100.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  101.                           35.83[3583])
  102.      \makefont tcso   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  103.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  104.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  105.                           35.83[3583])
  106. %     \makefont tcff   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  107. %                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  108. %                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  109. %                          35.83[3583])
  110. %     \makefont tcfi   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  111. %                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  112. %                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  113. %                          35.83[3583])
  114.      \makefont tcbi   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  115.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  116.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  117.                           35.83[3583])
  118.      \makefont tcti   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  119.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  120.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  121.                           35.83[3583])
  122.      \makefont tcui   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  123.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  124.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  125.                           35.83[3583])
  126.      \makefont tcci   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
  127.                           10[1000] 10.95[1095] 12[1200] 14.4[1440] 
  128.                           17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
  129.                           35.83[3583])
  130. }
  131. % If a font with a fraction, e.g. "7.5", should be generated
  132. % and the file name is not allowed to contain a period, an
  133. % optional file name part can be specified.
  134. %
  135. %      7.5[0750]
  136. %
  137. %      result in - may be - "tcr0750.mf" and an entry of "gensize:=7.5;"
  138. %      (The new value has to be specified in the \tablevalues-line too!
  139. %
  140. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  141. %
  142. %  The Batch file entries   ( #1 contains the fontname )
  143. %
  144. %   should be of the following form:
  145. %
  146. %    \def\BatchOutput{\BatchLine{...}%
  147. %                          ...
  148. %                     \BatchLine{...}}
  149. %
  150. %
  151. %  preset value, change \BatchOutput if you like ....
  152. %
  153. \def\BatchOutput#1{
  154.       \BatchLine{$ MF "\string\mode=localfont; input #1"}
  155. %     \BatchLine{mf/batch "&exbase \string\mode:=imagen; input #1"}
  156. }
  157. %
  158. %   File naming conventions:
  159. %
  160. \def\BatchFileName{tcfonts.com}
  161. %
  162. %
  163. \def\MetafontFileExtension{.mf}
  164. %
  165. \def\modedef{} % e.g.  \def\modedef{\string\mode:=hplaser;}
  166. %
  167. %
  168. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  169. %
  170. % please  n o  changes from here, thanks !
  171. %
  172. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  173. %
  174. %
  175. % (Avoiding inspecting the macros (sigh!)
  176. %
  177. %   Norbert Schwarz, Dezember 1990
  178. %
  179. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  180. \magnification\magstep1
  181. \overfullrule=0pt
  182. %\tracingonline1
  183. %\tracingcommands=1
  184. %\tracingmacros=1
  185. % some token handling
  186. \let\EA\expandafter
  187. \def\JoinToks#1=(#2+#3){#1=\EA\EA\EA{\EA\the\EA#2\the#3}}
  188. \def\UpToHere{\relax}
  189. \def\IgnoreRest#1#2\UpToHere{#1}
  190. \def\IgnoreFirst#1#2\relax\UpToHere{#2}
  191. \def\First#1{\EA\IgnoreRest\the#1{}\UpToHere}
  192. \def\FirstOf#1{\EA\EA\EA{\EA\IgnoreRest\the#1{}\UpToHere}}
  193. \def\MoveFirst(#1to#2){#2\FirstOf#1}
  194. \def\Rest#1{\EA\IgnoreFirst\the#1\relax\UpToHere}
  195. \def\RestOf#1{\EA\EA\EA{\EA\IgnoreFirst\the#1\relax\UpToHere}}
  196. \def\MoveRest(#1to#2){#2=\RestOf{#1}}
  197. % borrowed from p. 132 in N.Schwarz, Introduction to TeX (some advertising ..)
  198.  
  199. \newtoks\Basis
  200. \newtoks\Table
  201. \def\storetoks#1{\toks0={#1}\JoinToks\Table=(\Table+\toks0)}
  202. \Table={}
  203. %
  204. \def\hash{##}
  205. \newwrite \batchoutput
  206. \newwrite \fontoutput
  207. \def\today{\ifcase\month\or
  208.     January\or Februar\or March\or April\or May\or June\or
  209.     July\or August\or September\or October\or November\or December\fi,
  210.     \number\day,
  211.     \space\number\year}
  212.  
  213. \def\BatchLine#1{\immediate\write\batchoutput{#1}}
  214. \immediate\openout\batchoutput=\BatchFileName
  215.  
  216. \def\empty{}
  217. \def\minus{-}
  218. \def\blank{ }
  219. \def\singlefont#1 {%
  220.         \def\fontsize{#1}%\message{<#1>}%
  221.         \ifx\fontsize\minus\let\next\relax
  222.         \else
  223.             \ifx\fontsize\empty\let\next\singlefont
  224.             \else
  225.                 \ifx\fontsize\blank\let\next\singlefont
  226.                 \else
  227.                     \let\next\dofont
  228.           \fi\fi\fi
  229.         \next}
  230.  
  231. \def\doentry{\MoveFirst(\Workbase to\Htok)%
  232.              \Workbase=\RestOf\Workbase
  233.              \edef\doou{\the\Htok}%
  234.              \ifx\doou\fontsize
  235.                  \def\dooU{\storetoks{\hfill $\bullet$\hfill&}}%
  236.                  \let\weiter\dooU
  237.              \else
  238.                  \def\weiter{\storetoks{~\hfill&}\doentry}%
  239.              \fi\weiter}
  240.  
  241.  
  242. \def\singletablevalue#1 {%
  243.         \def\fontsize{#1}%
  244.         \ifx\fontsize\blank\let\next\singletablevalue
  245.         \else
  246.                 \ifx\minus\fontsize\let\next\relax
  247.                 \else\let\next\dotablevalue\fi
  248.         \fi
  249.         \next}
  250.  
  251. \newtoks\Htok
  252. \newtoks\Workbase
  253. \def\dotablevalue{\edef\dooo{\Htok={{\fontsize}}}%
  254.         \dooo
  255.         \EA\storetoks\EA{\fontsize&}%
  256.         \JoinToks\Basis=(\Basis+\Htok)\singletablevalue}
  257.  
  258. \def\tablevalues(#1){\storetoks{\bf Fonts &}\singletablevalue#1 -
  259.         \storetoks{\cr}}
  260.  
  261. \def\makefont #1 (#2){\JoinToks\Workbase=(\Basis+\Basis)%
  262.         \myc=0\immediate\write15{}%
  263.         \edef\fontnamebody{#1}%
  264.         \def\dostoretoks{\storetoks{#1 &}}\dostoretoks
  265.          \singlefont #2 - \storetoks{\cr}}
  266.  
  267. \def~{\ifdim\dimen0>0pt
  268.         \message{\number\dimen0}%
  269.         \global\advance\dimen0 by -5.25pt
  270.         \message{ }\fi}
  271.  
  272. \newcount\myc
  273. \def\extraspaces{\setbox0=\hbox{\tt\fontname}%
  274. \dimen0=78.75pt
  275. \advance\dimen0 by -\wd0\relax
  276.         \advance\myc by 1
  277.         \ifnum \myc=5
  278.         \immediate\write15{}%
  279.         \myc=0 \fi}
  280.  
  281.  
  282. \def\dofonttest#1[#2]#3\nothing{%
  283. \def\fontsize{#2}%
  284. \ifx\fontsize\empty
  285.         \def\fontsizename{#1}%
  286.         \def\fontsize{#1}%
  287. \else
  288.         \def\fontsize{#1}%
  289.         \def\fontsizename{#2}%
  290. \fi}
  291. \def\dofont{\doentry\expandafter\dofonttest\fontsize[]\nothing\Dofont}
  292.  
  293. {\catcode`\%=11
  294. \catcode`\|=14
  295. \gdef\Dofont{|
  296.   \edef\fontname{\fontnamebody\fontsizename\MetafontFileExtension}|
  297.   \edef\dowrite{|
  298.   \immediate\openout \fontoutput = \fontname|
  299.   \immediate\write
  300.      \fontoutput {% This is \fontname\space
  301.      in text format as of \today}|
  302.   \immediate\write \fontoutput {if unknown exbase: input exbase fi;}|
  303.   \immediate\write \fontoutput {}|
  304.   \immediate\write \fontoutput {\modedef}|
  305.   \immediate\write \fontoutput {gensize:=\fontsize;}|
  306.   \immediate\write \fontoutput {generate \fontnamebody}|
  307.   \immediate\closeout \fontoutput|
  308.   \BatchOutput{\fontnamebody\fontsizename}
  309.   \message{\fontname\blank}|\extraspaces~~~~~~~~~~~|
  310. }\dowrite\singlefont}}
  311. \immediate\write15{generated mf-files:}
  312. \immediate\write15{-------------------}
  313.  
  314. \nopagenumbers
  315.  
  316. \def\minimumbox#1{\setbox0=\hbox{#1}%
  317.         \ifdim\wd0>15pt \box0\else \hbox to 15pt{\hfil
  318.         \box0\hfil}\fi}
  319. \storetoks{\hrule
  320. \medskip
  321. \centerline{Overview TC - Standard font set}
  322. \medskip
  323. \hrule
  324. \bigskip
  325. \noindent The following table describes the generated {*.mf} files which
  326. are needed for the setup of the standard TC-font set.
  327. \bigskip
  328. \bigskip
  329. $$\vbox\bgroup\nointerlineskip\halign\bgroup\hash\hfil\quad&&\strut
  330.         \quad\minimumbox{\hash}\cr
  331. \noalign{\medskip}}
  332.  
  333.  
  334.  
  335. %\tracingonline1
  336. %\tracingmacros2
  337. %\tracingcommands1
  338.  
  339. \FontsToBeGenerated
  340.  
  341. \storetoks{\egroup\egroup$$}
  342.  
  343. \let\hash=#
  344. \the\Table
  345. \end
  346.